Dim nsInstance, nsApplication, nsSubscriber, nsSubscriberDevice

Set nsInstance = WScript.CreateObject("Microsoft.SqlServer.NotificationServices.NSInstance")
nsInstance.Initialize "OrderEntry"
        
Set nsSubscriber = WScript.CreateObject("Microsoft.SqlServer.NotificationServices.Subscriber")
nsSubscriber.Initialize (nsInstance)

nsSubscriber.SubscriberId = "CompDept_Delivery"
nsSubscriber.Add

nsSubscriber.SubscriberId = "BooksDept_Errors"
nsSubscriber.Add
